﻿
Imports System.IO

Partial Class admin_agreemen
    Inherits Page

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        File.WriteAllText(MapPath("/agr.txt"), agr_text.mlHtml, Encoding.UTF8)
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If IsPostBack = False And agr_text.mlHtml = "" Then

            agr_text.mlHtml = File.ReadAllText(MapPath("/agr.txt"), Encoding.UTF8)

        End If
    End Sub
End Class
